home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G32F / MAC_BAR.Dxr / 00031_“›—À€.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  2.4 KB  |  132 lines
  1. global nextkey, backkey, i, menukey, moveflg, cntpage, maxpage, left_p, right_p, volset
  2.  
  3. on startMovie
  4.   set moveflg to 0
  5.   set mycursor to [1, 36]
  6.   set nextkey to 13
  7.   set backkey to 14
  8.   set menukey to 18
  9.   repeat with i = 13 to 14
  10.     set the cursor of sprite i to mycursor
  11.   end repeat
  12.   repeat with i = 16 to 18
  13.     set the cursor of sprite i to mycursor
  14.   end repeat
  15.   set the cursor of sprite 19 to [2, 37]
  16.   set maxpage to 19
  17.   set cntpage to 1
  18.   set left_p to 299
  19.   set right_p to left_p + (maxpage * 2) - 1
  20.   set volset to the soundLevel
  21.   set the mouseDownScript to "gotMouseClick"
  22.   if the soundEnabled = 0 then
  23.     set the soundEnabled to 1
  24.   end if
  25.   volcrt()
  26. end
  27.  
  28. on gotmouseclick
  29.   dobuttonsprite()
  30. end
  31.  
  32. on dobuttonsprite
  33.   if rollOver(nextkey) then
  34.     donext()
  35.   else
  36.     if rollOver(backkey) then
  37.       doback()
  38.     else
  39.       if rollOver(menukey) then
  40.         domenuback()
  41.       else
  42.       end if
  43.     end if
  44.   end if
  45. end
  46.  
  47. on donext
  48.   if moveflg = 1 then
  49.     exit
  50.   else
  51.   end if
  52.   if moveflg <> 1 then
  53.     set moveflg to 1
  54.   else
  55.   end if
  56.   set cntpage to cntpage + 1
  57.   if cntpage > maxpage then
  58.     set cntpage to maxpage
  59.     exit
  60.   end if
  61.   repeat while the stillDown
  62.     puppetSprite(nextkey, 1)
  63.     set the castNum of sprite nextkey to 7
  64.     updateStage()
  65.   end repeat
  66.   tell the stage
  67.     set the soundEnabled to 1
  68.   end tell
  69.   jumpjumpkey()
  70. end
  71.  
  72. on doback
  73.   if moveflg = 1 then
  74.     exit
  75.   else
  76.     if moveflg <> 1 then
  77.       set moveflg to 2
  78.     else
  79.     end if
  80.   end if
  81.   set cntpage to cntpage - 1
  82.   if cntpage < 1 then
  83.     set cntpage to 1
  84.     exit
  85.   end if
  86.   repeat while the stillDown
  87.     puppetSprite(backkey, 1)
  88.     set the castNum of sprite backkey to 9
  89.     updateStage()
  90.   end repeat
  91.   tell the stage
  92.     set the soundEnabled to 0
  93.   end tell
  94.   jumpjump()
  95.   crt_key()
  96. end
  97.  
  98. on page_count
  99.   set cntpage to cntpage + 1
  100.   if cntpage > maxpage then
  101.     set cntpage to maxpage
  102.     exit
  103.   end if
  104.   countcrt()
  105. end
  106.  
  107. on crt_key
  108.   puppetSprite(nextkey, 1)
  109.   puppetSprite(backkey, 1)
  110.   set the castNum of sprite nextkey to 6
  111.   set the castNum of sprite backkey to 8
  112.   updateStage()
  113. end
  114.  
  115. on volcrt
  116.   puppetSprite(25, 1)
  117.   set the memberNum of sprite 25 to volset + 20
  118.   updateStage()
  119.   set the soundLevel to volset
  120. end
  121.  
  122. on domenuback
  123.   repeat while the stillDown
  124.     puppetSprite(menukey, 1)
  125.     set the memberNum of sprite menukey to 18
  126.     updateStage()
  127.   end repeat
  128.   tell the stage
  129.     doexit()
  130.   end tell
  131. end
  132.